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A revista CLUBE Z80, desde que se lançou, teve sempre co- 
mo princípio fundamental não tratar a questão da Informática 
com uma concepção demasiadamente utópica e teórica, mas 
ser acessível, em termos práticos, ao utilizador mais 
inexperiente. 

Nessa linha de ideias, julgamos estar a colocar realmente a 
máquina no seu devido lugar, articulando à prática a teoria 
necessária. Cremos que o conteúdo da revista cada vez mais 
se adequa às utilizações desejáveis e não a uma mera leitura 
que, depois, “fica na gaveta”. 

Contudo, parece-nos — e muitos sócios confirmam — que o 
esquema da revista está a tornar-se muito rotineiro. Há pou- 
co tempo, Hugo Assumpção sugeria que variássemos um 
pouco, com novas abordagens, como p. ex., falar dos vários 
gesnicros; Cibermnética; Inteligencia Artificial, 5.º Geração; 


Vendas de Computadores; CLUBE Z80 — Curva de Cresci- 
mento, Materiais Vendidos, Balanço Anual, Colaboradores, 
etc.. 

Assim, vamos tentar responder a estas e outras pretensões 
que surjam, alterando um pouco a “parte técnica” da revista, 
pois pensamos que a parte de programas serve perfeita- 
mente os desejos dos utilizadores. 

Ficamos também à espera das suas sugestões. Elas serão 
anotadas na nossa pauta e procuraremos, na medida do 
possível, viabilizá-las. 


ALEXANDRE SOUSA 
J. MAGALHÃES 
MARIA IRENE 





Autor: FERNANDO PRECES 


PARTE Ill — COMO FUNCIONA O Z80 (Cont.) 


4 — Programação em código máquina 


Depois de uma introdução superficial sobre os componentes 
internos dum microcomputador e alguns detalhes de funciona- 
mento dos seus principais órgãos, estamos em condições de 
iniciar um estudo mais profundo que nos relacione com a 
linguagem de acesso directo ao microprocessador Z80. 
As instruções em linguagem máquina aparecem, quer no Ma- 
nual do ZX81, quer no Manual do ZX Spectrum, escritas em 
Assembler, que emprega mnemónicas alfanuméricas para 
sesimbolizar operações e nomes dos vários órgãos do proces- 
sador. 

O Assembler é pois uma linguagem que utiliza as mnemónicas 
como idioma intermédio entre o Homem.e a máquina. 

Tal como as linhas de instruções BASIC, também o códido 
máquina é arrumado de igual forma na RAM, com a diferença 
que importa salientar do BASIC ter um endereço inicial inva- 
riável, e o C.M. poder ser colocado em qualquer endereço 
disponível da memória, que se encontre acima da RAMTOP. 
Porquê acima da RAMTOP? Pode interrogar-se o leitor menos 
esclarecido. 

Porque abaixo dessa zona, as faixas de memória ocupadas 
pelas variáveis e pelas pilhas máquina (ver o manual) se 
deslocam a cada instante ao longo da RAM, conforme as 
solicitações da programação. O código máquina necessita, 
por razões que veremos mais tarde, de estar depositado em 
localizações permanentes, que serão obtidas depois de se 
interditar uma zona da memória à acção do monitor. 

No ZX81, para de consignar a RAMTOP, uma vez determi- 
nado o endereço respectivo extensão, (este depende da ex- 
tensão do bloco ou da rotina em C.M. que queremos introdu- 
zir), é necessário calcular os valores do (Low Byte Address) 
e do (High Byte Address), com os quais devemos carregar a 
variável do sistema (RAMTOP), endereços 16388/9. 


(Cont. dos números anteriores) 


Sendo X o endereço, teremos: 


X=Y+256+ Z e calcula-se: 

M = (X/256) 

Y = (High byte) = INT m 

Z = (Low byte) = ((m — Y) * 256) 
POKE 16388,Z 

POKE 16389,Y = NEW 


No Spectrum, é bastante mais simples. 
Apenas: 


CLEAR X e ENTER 

Assim, um grupo de bytes acima da RAMTOP é totalmente 
ignorado pelas operações rotineiras da programação BASIC, 
e somente o comando POKE o pode alterar. NEW apenas 
limpa a memória abaixo da RAMTOP. 

Para além de números, alfabeto e sinais ortográficos, o Basic 
do ZX81 possui uns 70 comandos utilizáveis a partir do tecla- 
do (o Spectrum tem uns 100), que podem desencadear atra- 
vés do monitor determinadas funções do Z80. 

Dada a grande diferença existente entre as duas máquinas, 
já do conhecimento dos nossos leitores, teremos de admitir 
que essa, na sua maior parte, se situa a nível das ROMs (a 
do ZX81 com 8 K bytes e do Spectrum com 16 K bytes de 
extensão). 

No ZX81, os endereços compreendidos entre 8.193 e 16.383, 
na realidade, não existem. A informação que recebemos com 
um PEEK n (endereços citados) dá-nos uma imagem da 
ROM, repetindo os conteúdos dos endereços entre O e 
8.192, devido a um arranjo de ligações eléctricas, na base 
do chip. 

Voltaremos mais tarde a falar sobre esse espaço vago e 
como o poderemos utilizar. 

Para elaborar um programa monitor da envergadura destas 
ROMs, são necessárias algumas dezenas de técnicos alta- 
mente especializados nos campos das matemáticas e da 





electrónica digital. Outros requisitos não relacionados com a 
técnica também entram em linha de conta, pois é normal- 
mente o fabricante do computador quem determina o que 
quer vender, mediante os produtos lançados no mercado 
pela concorrência, ou o tipo de utilizador que tem por objecti- 
vo atingir. 

É esta última, a razão fundamental porque o Basic destas 
máquinas Sinclair é tão vigiado (elas vêm preparadas para o 
utilizador inexperiente). A única forma de contornar essa limi- 
tação, que torna o Basic-Sinclair extraordinariamente lento, é 
utilizar em linguagem máquina a alta velocidade do seu pro- 
cessador, aproveitando as potencialidades proporcionadas 
pela manipulação das 700 instruções do seu Assembler. 
Pegando nos manuais respectivos (ZX81, páginas 187 a 193 
e Spectrum, páginas 171 a 178) podemos verificar que 252 
dessas instruções são formadas por um único byte (todas as 
que se encontram na primeira coluna) e as restantes por 2 
bytes. 

Algumas dessas instruções exigem um complemento numéri- 
co que, associados, formam composições com 2, 3 e 4 bytes 
de extensão. 

O tempo gasto na execução duma instrução Assembler é de- 


pendente dessa extensão, que está relacionada com o nú- 


mero de funções a cumprir, tais como: 


a) Tempo de comutação do apontador e recolha de uma 
cópia do conteúdo do endereço n. Esta acção é 
constante para todo o tipo de instrução. 

b) Câmbio de valores entre registros indigitados. Um gran- 
de número de instruções que envolvem um único byte e 
que provocam a carga de registro com conteúdo de ou- 
tro, ou as que provocam o câmbio de conteúdos entre 
registros, são de execução muito rápida (soma dos 
tempos a e b). 

c) Recolha de cópia do conteúdo do endereço (n + se- 
guintes) para o complemento numérico da instrução (1 
ou 2 bytes). Este tipo de instrução é executada num 
tempo (a + c) ou (a + 20). 

d) Transferência dum conteúdo de registro para um endere- 
ço X da RAM. (Soma dos tempos (a e d) para 1 byte ou 
(a + 2d) para 2 bytes). 


e) Intervenção da ALU (unidade de aritmética e lógica). 
O tempo de execução de algumas instruções é agravado 
por esta intervenção, que é muito curta pelo facto de esta 
unidade apenas efectuar pequenas operações binárias, 
mas que não pode deixar de ser referida. 


A Unidade de Control uniformiza rigorosamente esses 
tempos, servindo-se de uma batuta (o ciclo máquina), que é 
sincronizado por impulsos introduzidos na entrada Clock do 
processador. | 


4.1 — O Clock e o Ciclo Máquina 


Um circuito comandado a cristal de quartzo (tal como nos 
relógios electrónicos) fomece os impulsos de sincronismo 
que comandam toda a actividade do Z80. Este elabora, a 
partir deles, 2 ciclos máquina de diferente duração. 

O primeiro (M1) contém 4 ciclos T (ciclo T é igual a um pe- 
ríodo do Clock) e o segundo (M2) contém 3 ciclos T. 
Chama-se Ciclo de Instrução ao tempo de recolha e execu- 
ção duma instrução que, como já vimos, pode ter uma maior 
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ou menor duração, conforme a sua complexidade, sendo a 
extensão medida em ciclos T. 


Tl, T2" T3, Té | TL 1 Ta! Ts 
De E Da da Pp fa, 


a o o e e vv o co co 


jCICLO | | 
Ts 
| 
| Mércio MÁQ. MZ à 


CICLO MÁQUINA M1 


| 

| Recepção do código de | Leitura de memó | 
operação (Tempo a) | ria (Tempo c) | 
] 


e CICLO DE INSIRUÇÃO |. | À 


| -— 


FIG. 4.1 — Exemplo de um Ciclo de Instrução para uma mnemónica 
que ordena a carga dum registro simples com um conteúdo do ende- 
reço (n + 1). 


O ciclo T tem uma duração diferente em cada máquina (para 
o ZX81, 307,6 nanosegundos e para o Spectrum 285,7 nano- 
segundos), a que corresponde para o ZX81 uma frequên- 
cia de trabalho de 3,25 megaciclos e para o Spectrum uma 
de 3,5 megaciclos. 

No exemplo apresentado na figura 4.1, o tempo necessário 
para a. execução dessa instrução é no ZX81 de 7 +307,6 
nanosegundos (2,1532 microsegundos — 2,1532 * 1078 do 
segundo) e no Spectrum de 7 + 285,7 nanosegundos (1,9999 
microsegundos — 1,9999 * 108 do segundo). 


4.2 — O salto para uma rotina máquina 


Tal como um GO SUB produz um salto para a Linha n, aonde 
se encontra a subrotina que se pretende executar e o RE- 
TURN provoca o regresso imediato à instrução seguinte dr > 
ponto de salto, também o comando USR X produz um salto 
para determinada rotina máquina que se inicia no endereço X 
e a mnemónica RET provoca o retorno incondicional ao 
Basic, à instrução seguinte do ponto de salto. 

O comando USR, cujo argumento X é sempre um endereço, 
obriga o Z80 a interromper a sequência do programa moni- 
tor e a percorrer uma outra com início em x (1.º endereço da 
Rotina máquina) situada ou na RAM (C.M. do programador) 
ou na ROM (C.M. do monitor). 

Note-se que num salto USR X, para uma rotina memorizada 
na RAM, não podemos utilizar o registro IY e o altemna- 
tivo HL, sem primeiro memorizar os seus conteúdos, que te- 
rão de ser restituídos aos mesmos no instante de retorno 
(antes de RET). 

Se tal não acontecer, ou o programa se imobiliza por estar 
desactivada uma interrupção de máscara (o apontador IY 
perdeu o seu endereço base), ou se dá um colapso total e 
tudo desaparece (o alternativo HL perde o ponto de reentra- 
da no monitor). 

Em qualquer dos casos, o utilizador terá de desligar a máqui- 
na e recomeçar o trabalho. 

As formas mais usuais de se empregar nas 2 máquinas o 
comando USR, são: 


A E A O E DR o US, 
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PRINT USR X — Que executa o C.M. e regressa escrevendo 
no ecran o valor decimal contido no registo BC, na posição 
PRINT do ficheiro, endereçada pela variável DF CC 
(23 684/5, no Spectrum) e variável DF CC (16 398/9, no 
ZX81). 


RANDOMIZE USR X ou RAND USR X — Que activa o gera- 
dor de números aleatórios antes do salto. 

LET A = USR X — Que utiliza uma variável adicional, equi- 
valente à função da rotina. 


A mnemónica RET (código 201), obriga o Z80 a voltar de 
imediato à sequência interrompida quando do salto USR X. 


Ensaio: 


PROGRAMA 0 — Utilização do comando USR e da instrução 
RET. 


ZX81 


fPoara 1K RAM RAMTOP em 17151, 2K RAM em 18075, 
16K RAM em 32410. 

Sugerimos que, para os ensaios a efectuar, o utilizador do 
ZX81, consoante a extensão de memória da sua máquina 
escolha para a RAMTOP, um dos endereços acima indicados. 


mnemónicas 
10 SLOW 
20 POKE (RAMTOP + 1), 201 RET 
30 STOP | 


40 LET A = USR (RAMTOP + 1) 
50 PRINT AT 12,7; “DE VOLTA AO BASIC” 


SPECTRUM 
Para 16 KAM RAMTOP em 31999 e 48K RAM em 64999 


mnemónicas 
10 CLEAR (RAMTOP) 
20 POKE (RAMTOP + 1), 201 RET 
fPso STOP 
40 LET A = USR (RAMTOP + 1) 
50 PRINT AT 12,7; “DE VOLTA AO BASIC” 


Depois de escrever o programa, — RUN. O único código 
desta Rotina vai ser memorizado e o programa pára na linha 
30. A seguir — RUN 40 e o Z80 salta para o endereço indi- 
cado, lê o código de retomo e volta ao Basic (linha 50). 


4.3 — As mnemónicas do Z80 


GRUPO | 


A instrução NOP (não operativo), nada mais faz de que pro- 
vocar um tempo de atraso de 4 ciclos T na recolha da instru- 
ção seguinte, pois não obriga o processador a produzir qual- 
quer trabalho. Nenhum registro ou flag é afectado. 

A instrução é utilizada em C. M. como enchimento para pro- 
duzir certos efeitos ou rectificar erros. 


Exemplo: 


Produzir um compasso de espera, para atrasar o movimento 
de uma figura, para a leitura duma legenda, apagamento de 
uma ou mais instruções que pretendamos eliminar, ou ainda, 














para reservar espaços dentro duma rotina com o propósito de 
introduzir mais tarde algumas instruções que de início não 
tenham sido previstas. 





Ensaio: 


PROGRAMA 1 — Instrução NOP. Para a RAMTOP, proceder 
como no ensaio anterior. 


ZX81 
mnemónicas 
10 CLS 
20 FOR A=1 TO 99 
30 POKE (RAMTOP+ A), O NOP 
40 NEXT A 
50 POKE (RAMTOP + 100), 201 RET 
60 STOP 
70 LET A = USR (RAMTOP + 1) 
80 PRINT AT 12,7; “DE VOLTA AO BASIC” 


Para o Spectrum, substituir a linha 10 por CLEAR RAMTOP: 
CLS. 
Introduzir RUN, aguarde o STOP e depois RUN 70. 


Comentários: 
A rotina é formada por 99 NOPs, e 1 RET. 


GRUPO 2 — Este grupo é constituído por todas as instru- 
ções que representam a carga de registros com um ou dois 
bytes de dados, copiados dos endereços seguintes. 


Exemplo: 


abreviatura de Load (carga 
pesa (carga) 


Registro Simples [N] q. 4 byte (0 — 255) 


! nome do registo 


y 
Registro par [LD) É [NN] <— 2 bytes (0 a 65535) 


Carga de registros simples 


- 


MOOD r|]p 
CAE 
S8Rro DER 


Tempo de execução destas instruções: 






N.º ciclos T 
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Carga de registros pares 


mnemáónicas 


17 
221, 33 
2583, 33 





Tempo de execução destas instruções: 


3 3 
4 4 


Neste grupo, os 3 primeiros registros pares da tabela são 
denominados utilitários e os 3 últimos especializados. Por 
enquanto não vamos abordar a utilização destes últimos. 











10 
14 


Ensaio: 


Programa 2 — carga de registros com dados memorizados 
nos endereços seguintes. 


ZX81 e ((Spectrum)) 


mnemónicas 
10 CLS ((CLEAR 64999)) 
20 LET A = 32412 ((CLS: LET A = 65000)) 
30 POKE A, 14 
40 PRINT AT 5,0; “INTRODUZA UM VALOR (0 a 255)" 
“PARA O REGISTRO C” 
50 INPUT C 
60 POKE A+ 1,C 


70 POKE A+2, 6 LD B, N 
80 POKE A+3,0 
90 POKE A+ 4, 201 RET 


PRINT AT 12, 0: “O CONTEUDO DO REGISTRO C” 
=": USR 32412 ((USR 65000)) 
RUN ((RUN 20)) 


100 


111 


Nota: Para o Spectrum, escrever ou alterar na linha respecti- 
va, O que estiver entre parentesis dobrados. 
Comentários: como já fizemos referência, o comando USR, 
antecedido duma instrução PRINT, inscreve em decimal o 
conteúdo do Registro BC, no regresso ao BASIC. | 
Depois deste ensaio, altere a linha 70 para POKE A + 2,0 e 
corra o programa. Agora verifica-se um erro entre O valor 
introduzido no INPUT e o valor inscrito. Sabe explicar o que 
aconteceu”? 

Sim? ... Claro, é isso mesmo... 

Quando do salto para a rotina máquina, o registo BC recebe 
o endereço base dessa rotina. você apagou com o INPUT a 
parte “C” desse endereço, mas não apagou a parte “B” e 
ela regressa. 


Programa 2 A — Idem 
ZX81 e Spectrum 
mnemónicas 
10 CLS ((CLEAR 64999)) 


20 LET A = 32412 ((CLS: LET A = 65000)) v 

30 POKE A, 1 LD BC, NN 

40 PRINT AT 5,0: “INTRODUZA UM VALOR (0 a 
65535)", “PARA O REGISTRO BC” 

50 INPUT BC 


60 LET M = BC/256 

61 LET Y=INTM 

62 LET Z=((M— Y) + 256) 
70 POKE A+ 1,Z 

80 POKE A+2,Y 

90 POKE A+3, 201 


100 PRINT AT 12,0; “O CONTEÚDO DO REGISTRO 
BC”, =“; USR 32412 ((USR 65000)) 
110 RUN ((RUN 20)) 


Comentários: 2 bytes (LOW DATA BYTE) e (HIGH DATA 
BYTE) encontrados no cálculo efectuado pelas linhas 60 a 
62, vão carregar o Registro BC. De regresso ao Basic, esse 
número é inscrito em decimal. 

Este grupo de instruções não afecta os flags. 


(Cont. no próximo número) 





Trad. e Adapt. de “The Complete Sinclair Database” 


PARTE | — 1962 - 1980 


CLIVE MILES SINCLAIR (nascido em 1940), assistente edito- 
rial da revista «Practical Wireless», fundou em 1962 a firma 
«Sinclair Radionics» que comercializava pequenos transistores. 
Com a produção de novos equipamentos (rádio-transistores, 
micro-Tvs, calculadoras de bolso, relógios digitais, etc.), a 
companhia parecia expandir-se com muito êxito. Na realidade 
as coisas aconteceram ao contrário: deficiências nos equipa- 
mentos originaram o descrédito público na firma. 

Sinclair mudou-se para a NEB (National Enterprise Board) 
criando aí o «design» de um computador chamado NEW- 
BRAIN, que acabou por vender à firma «Newbury» por achá-lo 
muito dispendioso. 


Em 1978, sinclair produzia efectivamente o seu primeiro 
computador — o MK 14. 

Contendo um processador SC/MP CMOS, com !/4 K RAM, um 
teclado hexadecimal e um monitor com !/2K EPROM, o 
MK 14 foi colocado à venda por £: 43.55. O seu concorrente 
era um COMMODORE que custava o dobro. 

Algumas deficiências, uma das quais era o teclado ser fabri- 
cado em borracha, originaram grandes críticas na imprensa e 
o MK 14 perdeu a popularidade que tinha conquistado. 
Em Fevereiro de 1980, Sinclair lançou o ZX80, o primeiro 
computador em BASIC, reproduzindo um processador da 
NEC — o Z80A. 

Por um preço inferior a £ 100, o ZX80 vendia-se em forma de 
«Kit» ou já completo, incluindo um manual de programação. 


EN 


Adao o e DE pe ES o PE A A ND a E 
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Possuindo 1 K de memória RAM, o ZX80 era a primeira opor- 
tunidade de qualquer pessoa possuir e utilizar um 
computador. 

O BASIC ocupava apenas 4K ROM e as instruções 
introduziam-se nos programas por simples pressão de uma 
tecla. 

As encomendas atingiram um número tal, que a Sinclair teve 
que determinar prazos de espera de 3 meses que, mesmo 
assim, nunca eram cumpridos. 

O mais importante no ZX80 era que, não obstante possuir 
apenas 1 K de memória RAM, tinha bastantes aplicações sem 
exigir «extras». 


Pouco tempo depois vendia-se uma extensão, de memória de 
3 K RAM e, mais tarde, 16 K RAM. Mas rapidamente a máqui- 
na começou a demonstrar os seus limites, dado que o micro- 
processador apenas realizava uma tarefa de cada vez. 
Aproveitando o «design» anterior, logo se idealizou uma cópia 
— o MICRO ACE. 
Com circuitos principais e BASIC ROM idênticos ao ZX80, 
embora possuindo 2 K RAM (e não 1 K), esta máquina veio a 
ser vendida, sob licença, aos E.U.A. 
Melhoramentos ao «design» foram prometidos mas, na reali- 
dade, nunca vieram a público... 

(Cont. no próximo número) 
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PARTE | 

1.3 — PROGRAMA EM BASIC (Cont.) 

Uma vez gravado o programa basic (v. número anterior), va- 
mos introduzir na máquina o monitor que irá formar uma 
REM suportando 1751 bytes, necessários à introdução do 
código-máquina. 


REM xx STEP .: ar BS 


E SGN 

2 a8=.0 2205 0920580801 
511038034205092062046033 
61980 1502425505605119518 


Primeira REM com q 
quer extensao 

30 FOR Ff=zi TO LEN àag/3 

40 as E3769+Ff VAL agli(3XFI-2 


TO 3+f 
A ter k=23769+f: PRINT k,PEEK 
> Bo NEXT F 

51 STOP 
Ss INPUT “QUANTOS BYTES ? "“;a 
S7 LET a=a+2 
60 LET b=INT (a /256): LET csta 
56 *+2565 
70 POKE 50000, cc: POKE 50001,b 
600 RANDOMIZE Ea 23770 


AS RESTANTES LINHAS DO PROGRAMA 
CONFORME INSTRUCÕES DO TEXTO. 


Após ter escrito o monitor, corra o programa com RUN. No 
ecran surge a pergunta: «Quantos Bytes?» 

Como resposta, introduza o número 1751, aguarde o apare- 
cimento do relatório e LIST o programa. 

Apague todas as linhas do basic, excepto a linha REM. 
Agora introduza: 


POKE 23755, 39 
POKE 23756, 16 


ENTER 
ENTER 


Vamos chamar a seguir o programa basic «CONVERSOR» 
que se encontra gravado em fita, com: 


MERGE «CONVERSOR» 


(Cont. dos números anteriores) 


Logo que surja o relatório, pode voltar a gravar o programa, 
agora já aumentado com a linha REM, com: 


SAVE «CONVERSOR 1» 


NOTA: VERIFIQUE o programa antes de o apagar da má- 
quina, com: 
VERY ” * 


Se tudo bateu certo, vamos continuar, com NEW e depois 
CLEAR 25984. 

Seleccione a seu gosto um pequeno programa monitor que 
introduza código-máquina em decimal. 

E agora vamos ao trabalho. Tem de escrever 1751 códigos, 
mas não o faça duma vez pois fica estoirado e vai cometer 
erros. Introduza 100 ou 200 códigos e depois pare. Pode gra- 
var o que fez, apontando o último endereço e: 


SAVE “0” code 25985, 
(o número de códigos escritos) 


a segunda etapa, com: 


SAVE “1” code (número apontado+ 1), 
(número de códigos escritos) 
O ai 

Sos 39 16 46 WD 253 168 
SE SO 118 40 580 51 SS Si 
25997 S0 14 Q ['y 52 ve 
26003 Q - 41 e “rm E? 42 
dada 5º EE 14 3º &" 5 
26021 92 |U 41 45 857 56 
26027 14 qà [74 98 q 2 
ads 41 13 30 17 D3 DB 
26039 245 172 49 49 14 Q 
26045 Q 1. BD 2 44 57 
26051 14 0 2 E 2 2 
28057 S90 220 49 14 QB 2 
26063 1 2 2 So ei 49 
26069 14 Q a 1 2 2 
26075 59 3 68 73 68 65 
26061 84 73 57 32 83 79 
26087 70 B4 87 46 3J4 SE 
26093 245 58 245 34 JR 67 
26099 79 758 86 69 82 83 
26105 790 82 Je Je BA BB 
26111 56 49 3J2 45 45 62 
26117 32 DD 88 83 BB 69 
adias 67 84 2 85 77? Já 
26129 58 234 13 39 18 83 
26135 q 237 52 14 Q 2 
a6141 4 2 [Pa s8 24sS 192 
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OS PROCESSOS DA INTELIGENCIA ARTIFICIAL 


4. A Xerox e a Symbolics Inc. construiram computadores 


O Professor António Costa, um brasileiro com profundos 


especialmente projectados para executar programas em 


conhecimentos da Inteligência Artificial, fala dos princípais 


acontecimentos nessa área, ocorridos nos últimos dois anos: 


LISP, a principal Linguagem da Inteligência Artificial; 


5. Os japoneses anunciam para 1985 um computador 


pessoal capaz de executar eficazmente programas em 


O, 


lança um projecto com 10 anos de dura 


O Japão 


R 


PROLOG, a linguagem que ocupa o segundo lugar em 


geração. 


visando a construção de um computador da 5.º 


popularidade entre as pessoas que trabalham com Inteli- 


gência Artificial. 


uções, 


programar outros computadores, observar cenas, etc.; 


Ele será capaz de falar inglês e japonês, fazer trad 


inscrição no 


uma nova 


7» 
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Durante o mês de AGOSTO, o sócio que 


conseguir 
CLUBE Z80 terá a oferta de uma 





o, reservando verbas fabulosas 
e 


Artificial seja financiada por institu 


igência 


Não deixa de ser lamentável que parte das pesquisas em 
militares; 


detém 1 bilhão de dólares para gastar em cinco anos. 


2. Os Estados Unidos entram na corrida para construir um 
computador de 5.º geraçã 
para pesquisas em Inteligência Artificial só o Pentágono 


Intel 


CASSETE COM UM JOGO, “à sua 


di- 


es começam a ser ven 


Lol 


té Portugu 


ces ea 


A 


dos nos Estados Unidos. Entre os utilizadores de tais 
Bancos estão o Bank o America e a AVCO; 


3. Bancos de Dados capazes de entender Inglês, Japonês, 
Alemão, Fran 


o 
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Autor: FERNANDO PRECES 


L>REM “FiJ1" 
5 GO SUB 489 
10 CLS 
15 DIM Cí4) 
20 DIM Gi4) | 
30 LET Cil) =INT (RND+49) +12 
40 FOR Zeê2 TO 4 
SO LET CíZ) =INT (RND4&9) +1 
69 FOR Jui TO Z-1 
70 IF CiJ)z=CiZ) TMEN GO TO 40 
80 NEXT J 
90 NEXT Z 
100 FOR G=1 TO 10 
105 IF G<10 THEN PRINT “IETENTAT 
IVAR; CHR$ 16+156);"5" 
107 IF G=10 THEN PRINT “ULTIMAR 
TENTATIVA>" 
110 INPUT A 
120 LET ALA 
130 FOR Z=i TO 4 
140 LET GiZ) =A-104 (INT (A/10)) 
150 LET AzINT (Ã/10) 
160 NEXT Z 
170 LET B=Q 
180 FOR Z=i TO 4 
190 o” We? 
q228 IF C(Z)<>G(Z) THEN GO TO 23 
210 LET B=B+1 
220 LET G (Z) =Q 
230 NEXT Z 
40 FOR Zai TO 4 
250 : G(Z) =O THEN GO TO 300 
282 Jz=i TO 4 
278 IF CíZ)<>G(J) THEN GO TO 29 
280 L uy+1 
290 N J 
320 N Z 
310 P AL; ACERTOU ";CHR$ « 
B+156);" PRETA": 
320 I 1 THEN PRINT“ "; 
330 T (52 THEN PRINT "Ss; 
340 P "o “-CHR$ (U+156);" B 
RANCA"; 





Autor: CARLOS MORENO 
Porto 


“Este programa, tal como apresenta a listagem, funciona 
apenas no ZX81 ou no TS 1000. Apesar disso, podemos 


pô-lo a funcionar no ZX 
alterações: 


Linha 12 será: 
Linha 61 será: 


Outro modo possível de 
SPECTRUM é: 


Linha 10 será: 


Linha 12 será: 
Linha 61 será: 


SPECTRUM com as seguintes 


12 LET N = 23760 
61 LET N = 23760 


alterar este programa para o 


10 CLEAR 5000 
12 LET N = 50001 
61 LET N = 50001 


Ão ser executado, o programa passa os números introduzi- 
dos de hexadecimal para decimal, colocando-os em seguida 


na instrução REM. Para o 


microprocessador poder executar 


esta tarefa, devemos fazer RAND USR 16514. Atenção! ... 
se for introduzido um Código Hexadecimal maior que FF, se- 
rá produzida uma mensagem de erro e o programa pára a 


sua execução. 















352 IF W<>1 THEN PRINT "Ss"; 

55. TE o es THEN PRINT TAB (5) 

é = : 14 
ayoCEgacER um 

380 IF B=4 THEN GO TO 410 

206 E TT TAS 3; “"ABRESPOSTANCOR 
RECTARERAR; 

412 FOR =1 TO 4 

420 PRINT CHR$ (CIS-Z) +156); 
430 NEXT Z 

440 GO TO 6 
qo? PRINT AT 0.8; "HEMASTERMINOE 
460 PRINT AT 2,0; FUI PROGRAMA 
DO PARA ESCOLHER hOACASO UM NUME 
RO DE 4 DIGITOS." 

470 PRINT ,,” SAO VALIDOS TODOS 
OS ALGARISMÓS (0/9). NÃO HA ALGA 
RÍSMOS, REPETIDOS NO NUMERO ESCO 
475 PRINT ,," VOCE VAI TENTAR 
ADIVINHAR ESSENUMERO  INTRODUZIN 
DO 4 DIGITOS ASUA ESCOLHA POR C 
ADA TENTATIVA,RO FIM DA QUAL AGU 
ARDA O RESULTADO. “ 

480 PRINT ,," A INFORMACAO PR 
ETA SIGNIFICA" 

490 PRINT DUE TEM UM DIGITO C 
ERTO NA CASACERTA E BRANCA , UM 
CERTO EM CASA ERRADA." 

SSQ0 PRINT ,," CARREGUE N/L. P 
ARA COMECAR: * 

S70 INPUT US 

580 CLS 

590 RETURN 

600 PRINT AT 21,0; OUTRO JOGO? 
(DIGA S OU NJ.” 

610 INPUT Ls 

820 IF L8="S" THEN GO TO 10 

830 CLS 

640 PRINT AT 12,3;" ENTRO ATE A 
PROXIMA." 

650 STOP 
1000 SAVE "1" 
1018 RUN 


1a REM 


LET N=iésia: “asa. amnaa 
LET Liza ú 
PRINT “CODIGO HEX EM 


SQ INPUT EBg 

Ss1 LET P=1 

se LET R=0 

L=LEN Egg 

s4& FOR K=ll TO 1 STEP -12 
3S LET JsQB 


PQ a ps 
MT 


SO IF CODE B$SIK) >37 THEN LET I 


37 LET A=(CODE (B$(K))-28-4) 4P 
38 LET P=P+16 

59 LET R=R+A 

42 NEXT K 

4? CLS 

48 IF B$g='"''* THEN GOTO 562 

43 POKE N+LI1-1,8R 

Sa LET List isSi 

so GOTO 

61 LET N=16514 

€> PRINT “PREPARE O GRAVADOR" 
65 PAUSE 4E4 


CLS 
6S SAVE “CARREGADOR. 
"Q FOR F=N TO N+4L1-1 
82 PRINT F.PEEK F 
20 NEXT F 
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In. THE BEST OF SINCLAIR PROGRAMS/84 
Trad.: J. MAGALHÃES 


Aqui está um programa para quem gostar de Biologia, mais S3 IF dz2 THEN GO TO 75 
concretamente sobre evolução, selecção natural. 6) CLS : PRINT AT 4,0; ,1NK 2. 
ê as Populacao seleccionada *?' (tem Pp 
Em determinada população de ratos distinguem-se uns de ercentagem) "100% significa que 
côr preta, outros amarelos e, por «selecção», alguns serão toda à. (., spa do queda nao sobr 
eliminados enquanto outros poderão sobreviver. dp SAIA a Pad à rada de um NU 
A selecção não segue qualquer fórmula pois iria afastar-se 62 INPUT sp: IF sp<o OR sp>100 
bastante da realidade. Assim, será determinada ao acaso ceara qUM!. o Sa ira ser ent 
pela instrução RANDOM, mas dependente da percentagem 70 LET s=100-sp 
que pretender. ?S CLS : PRINT AT 7,0; INK 2,7 
Qual a percentagem inicial 
ê A hd E dé DD): DIM b(6I) de alelos amarelos ? (UMA PE EM 
x SUB 99000 ota que muitos deles "Podem so 
1S BORDER 7: PAPER T:- GU frer alterações na cor!) c"cum n 
2ào PRINT INK 1,"Este programa umero ate 100" 
simula determinadapopulacao de 7? INPUT q: IF <2 OR 4>100 TH 
ratos, onde se iStinguem doi EN PRINT INK O'““"Deve ser entre 
& tipos: CCCrátos pretos q “ra Q e 190": GO TO f'p 
tos amarelos; INK 6:04" INK 2 100 LET n=1: LET paes 
; "Esta diferenca e originada P 110 LET y=4/100: LE Tia 
Drum sera com dois alteLtos.CCy L 20 LET sb=1: LET sy=l: d=2 
preto) e"“C"dominante sobre y tam THEN LET ed de 2 ty 
areLo).” 221 IF d=zi THEN LET sb=s7/7100 
23 PRINT “Isto significa que: 215 BORDER 7: PAPER 7: CLS 
Vo byy a PretotcCyvy -- Ppretol*êy 220 LET n=n+1: GO SUB 19000 
y -- Amareto!**; INK 1;CNoOta que 265 GO SUB 2000 
um é rato pode ser wy ou Yy de 265 IF n=51 THEN PAUSE 120: GO 
cor amareta"'"Os atetos amarelo TO 3180 
s podem ocultar-se em ratos pret 270 POKE 23592,255 
os!'": PRINT HO; INK DB; INVERSE 1 28% PRINT BB; BRIGHT 1; INVERSE 
| “Qua Lquer tecla para continuar” 1; INK B;“M - CONTINUAR G 
«Ss IT e THEN GO TO 25 - GRAFICO" 
27 CLS : PRINT INK 2;"Podes at 285 GO SUB 52000 
ompanhar as mutacoes desta po 290 IF Ig='n" OR i$='M" THEN GO 
puLacãao ate SQ geracoes,."** INK TO 215 
1;"Em cada geração a populacao 300 IF ig='9" OR 18="'G' THEN GO 
dobra O Seu numero, mas nem TO 310 
todos podem sobreviver, Seras 305 GO TO 2855 
interrogado sobre qual o nume 3120 GO SUB 6000 
ro maximo possivel de sobreviven 311 G0 SUB 5000 
tes" 315 IF i$g='n" OR 1$='M" THEN GO 
28 PRINT INK 2;*º São possiveis TO 215 
3 Situacoes:"""- Seleccao nao fF 320 IF i$g='n" OR 1$8=]N'º THEN GO 
avoravel aos amaretLos"“““ (Os P TO 40 
retos tem a cor que lhes torna 325 IF ig='s'" OR ig=z'"S" THEN PA 
possivel a sobrevivencia) C"- 5 PER 7: STOP 
eLleccao nao favoravel aos rat 382 GO TO E 
Os pretos“ (mais falil à sobrev 199220 PRINT AT INK 2; BRIGHT 
ivêencia dos ratos amarelos" "- N 1; "PROXIMA GERAÇÃO (ENA) 
ao existe seleccao""" tOs dois ti 1205 LET ym=0: LET cd=ê: FóR f=1 
pos de ratos adaptam--se perfeit TO 2+p 
amente ao meio)” 1910 LET x=RND: LET v=RND 
29 PRINT HQ; INVERSE rm 12290 LET Z=(x>=9y) +lv>=y9) 
er tecta para continvar": PAUS 12390 LET Arda 
Q 1240 LET agiri=STR (Z) 
30 CLS : PRINT INK 2,"'Podes te 1045 LET i=D: IF agif)="2" THEN 
ntar qualquer uma destassituacõe LET iz6: LET yh=yn+i 
S, & Se ocorrer seleccaodetermin 1245 PRINT INK ii; "; 
ar o seu numero”* INK BO; INVERSE 12592 NEX 
L;""Qualquer tecla para comecar 1260 LET gu=i4tpP-Cd) 2/(4+%P) 
ai 1065 PRINT AT 19,0, INK 2; BRIGH 
3S IF INKEY$6="" THEN GO TO 35 T L; yum; ratos amarelos em ae 
40 BORDER 7: PAPER 7: CLS S+P)  i4xp-cd);" alelos amarelos 
SQ PRINT AT 7,0; INK 2;"Poputla em “; (4+p) 
cao maxima?" (NãO superior a 12 12790 RETURN 
Ss)" 2000 PQUSE 150: PRINT AT 2,2; IN 
S2 INPUT pB: IF pO<1i OR p8>125 Kk 2; BRIGHT 1, FLASH 1; NEM TOD 
THEN PRINT INK 2; ""“"Deve ser en os PODEM SOBRÉU IVER » 
tre Q a 125.": GO TO 52 2905 LET ps=2+ LET bm=2+4p-um: 
SE CLS : PRINT AT 7,0; INK 2;" LET bmi=bh: LET umi=um 
A seleccao pode ser: vc" "Nao, favo 22056 LET r=po-isbrbm+Sy*uUm) 
ravel aos amaretos- Cegr” “Nao 2207 IF r>1 THEN LET r= 
favoravel aos pretos- dad dida g 20190 FOR f=1 TO *p 
Nao ha seleccãao- id 22680 LET x=RND 
giá 22071 IF i((agíifI>"0"') AND (x>rasb 
5? INPUT d: IF d<x>D AND d<>1 A JJ) THEN LET cdz=cd-VAL taglifi): 
ND d<>52 THEN PRINT INK DO; * “Deve ET bmizbmi-l: LET agir)="a' LET 
ser 0,1 64 82”; DO TO 57 ps=ps-2: PRINT ” na 
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— o ÇÃÇÃAOgazazlteso e 


e IF Emite 0) AND ix>rasu 
THEN LET umi o -1: LET as] (rj 
“2 LET ps=ps- RINT 

IP agiti<>: ai THEN PRINT OU 


2 INK ri 


PRINT. HT 20,31," " 
PRINT AT Q, th 


IF bmn=0 THEN PRINT AT 19,0; 


IF bm>0 THEN PRINT AT 19,0; 

GHT 12; INK bni;” PRETOS Só 

DOS "; bm; CENR À ;TRB (28); 1 
Nº 


Eram a des 
n>0 TH INT AT 20,0; 
| INK 2;ymi;” AMARELÓS 
Ôs ";y K L;TRB (28) 
q É 
p / 
N 


o rumba —ny 
S6S60G :—& 


GS 
o 
e 


mo o 


mo rr 


iÚ 
HODSÁADOS 


us DZODOA 


“p 

tm 
» “8 
A. 
-cd (2+*ps): PRI 
y="; (INT (uy 
tiha geraca 
V+.5))/180;" 


y=i 


R 
1 
N 
, 
o ) 
1; r 
| 7/10; 
(bi 


"SUSÁDHA-CHA 


AS 
"970 


E 

D m; 
2 m 
s 

T, K 
T 1) 


- + 


/ - 

+ Ç 

I 2; ºM 
tu l 

n- +129 


n) =y 
PD: IF ps<=pQ THEN LE 


U 
STO morrrm 
mmm nm gme. + 
++ ZuIdsS 
D Vo 
“— 


TURN 
F INKEY$="" THEN GO TO 500 


ET LS=INKEVS. RETURN 
ORDE ER 1: CLS : IN 
so 47,155: DRAW B,-120: D 
BQOiv FOR F=35 TO 156 STEP 24: PL 
OT 4s,f: DRA -3,0: NEXT 

6020 FOR F=47 TO 247 STEP so PL 
OT F,36: DRAW D,-d: NEXT 

6030 PRINT AT 9,0; “uy; AT 2, 2: 
DO"; AT S,3;"SO";AT 8,3."60" Sta 


DZx0USsANApN- CH ZU NZD 
"56 SOndaA 


D 96 S+- 96: 
LION SSTOO 


L,3; CADU AT 1ld,3;"20";AT 17,4:0 


Bo40 PRINT AT 18,56;'"0 19 pefr;| 
30 ER] So". AT 19, sr 'Geraca 


Soso PRINT AT, a, S; INVERSE 12;"“Po 
pulacao max. “PO 
5050 IF d=2 THÉR PRINT AT 2,10; 
INVERSE l;"Nao houve seLecçcao E 
6270 IF d=z1 THEN PRINT AT B,2: I 
NUERSE A; INT isPI;CA nao à favor 
dos pretos” 
260 IF d=D THEN PRINT AT 2,1; I 
NUERSE 12; INT ISP); CA nao a Favor 
dos amareltos” 
6100 PLOT 46,12D+b(1) +36: DRAW O 


1;3,0 
2 TO n: PLOT QUER 1,4 
EXT Ff 


tv mnmao dc 
am ion 


É 
H 
A 
X 
tha 
“DD 
m - 
del 


L. LET b(2Z)s 
[3 PRINT AT 19,0; INVERSE 


7 
H 1;"Grarfico completo” FL SN 
9 


Pong 


a ud continua mas Limpa o 
in- comecar de novo, s 


R 
x 
4 
1 
2 
L 
N 
> 
3 
00 LET nal: 
1 
5 
AR 
r 
1 
Q 
1 
N 
Ea 
jo 


R f=0 TO 7 

15 READ gr 

39920 POKE USR “m'+Ff,ar 
3025 NEXT Ff: RETURN 


S- Saia E - 


vo got > CD E GT — 
DER O O ao 





in. YOUR COMPUTER, Dezembro/83 
Trad.: J. MAGALHÃES 


VU-METER Il 


No n.º de Dezembro/83 do CLUBE Z80, publicamos o pro- 
grama VU-METER (corrigido) que nos dava a representação 
gráfica de sinais audio. 

Devido ao entusiasmo demonstrado por vários sócios, decidi- 
mos publicar este novo programa que funciona de forma 
idêntica ao anterior, mas com pequenas alterações. 
Temos agora 3 tipos de representações gráficas: 


— Normal 

— Barras 

— Pontos 

que supomos tornarem mais fácil a observação das diferen- 
tes tonalidades. 


R=RECOMECHR E=FIM 





M=MENU 





SENENPRESES 








CLUBE Zso 


192 DEF EN RILi=14+INT (.5+/30) 
03 GO SUB 495 

195 GO TO 200 

110 DRAW INK EN AiLI;X-N,-L+v: 
LET X=N: LET y=L: RETURN 

120 DRAW INK EN AíLI;2,-L: RETU 


RN 
E tás PAPER QD: INK 7: BRIGHT 2: 


210 PRINT AT à, 9; - INVERSE . à; “580 
ANNER DE SOM" 

215 PRINT AT 3,1;"Este programa 
faz a representacao grafica de 
Sinais A Pela entrada do EAR 

do ape cicua 
e2o PRINT Ar 3,1; “Introduza uma 
cassete tex: musica), iNicie o 


gravador e seleccione uma das se 
quintes opcoes:' 

225 PRINT AT 13,8;“1) NORMAL; A 
T 15,8;"2) BARRAS";AT 17,8;"3) P 
ONTOS” 

230 INPUT INVERSE 1:;"Qual a opc 
ao (1-3)";0: IF D<l ÓR 053 THEN 
G0 TO 230' 





in. YOUR COMPUTER, Março 1983 
Adapt.: J. MAGALHÃES 


* Este texto foi elaborado com O progra- 
Na Que à Seguir passamos a descrever. 
ay da revista Your Computer, Marco 


Por falta de disponibilidade, O programa 
= apresentado com todas as instrucoes em 
Inglês, no entanto supomos que a nossa 
descrição « bastante elucidativa, facili- 
tando à sua utilização. 


Como ja teve Oportunidade de verificar, 
este “Processador de texto, permite ultra 
passar O limite normal dé caracteres do 
apectrum (3 - 42), dando-lhe ainda à pos- 
bi lidade de uma nova redefinicao, Neste 
Caso EStãao à Ser usados caracteres de seis 
por oito Pixels. 


O programa inicialmente apresenta um menu 
de seis opcoes: 
- à Primgira OPCãO, da entrada para à Cri- 
Cao do texto, OU verificação do mesmo. 
nicialmente &-lhê pedido On. da pagina 
pretendida que sera apresentada sanradar 
mente com O cursor posicionado no canto 
superior esquerdo do ecran, podendo, com 
as tecias S à 6, move-to pará qualquer po- 
Sicão, Se acontecer sobreposicao de cara- 
Cteres, ficarão na memoria apenas os uUlL- 
L1MOS à SET transcritos. 
Sao org hs. nd Os caracteres, É pi [8] 
qual pode utilizar as teclas: Caps shift e 
Symbol shift. EM Caso de erro'na entrada 
de Um caracter, para O apagar basta usar, 
somo normalmente as teclas Caps Shift é 
etê. 
oe pretender iniciar uma nova tinha, faca 
Enter, no entanto note que se estiver na 
Ultima Linha, Nao avancara para à proxima 
6 id Fi cando O Curso” dividido em duas 
af tes. 
Verifique que No fundo do ecran se encon- 
tram ainda mais tres opcoes: | 
nNext- Passara à Pag. Seguinte. (sao apenas 
Utilizadas é Pags). 
"enu- Para regressar ào Menu. 
LoPy- Fazer a copia do texto. (tecia Z). 
Estas OPCOES Sao conseguidas accionando 
Simultaneamente as teclas: Caps Shift e 
JyMbOL Shitt, Seguindo-se à entrada da sua 
inicial (iNverse video). 


o : 

CE para parar": LET Ig="" 
29: LET Y2=0 

R N=0 TO 255 STEP 4: LET 
R TONE: PLOT N 

IF Q<3 THEN GÓ SUB 100+iDs1 


“Es 3 dês INKEY$: IF I$g=" “ TH 


MCT --n 
SAM :& 
0 
Tn 


or. 
NZD uo rm 


LS 


m 
on 
e] 
TG) 
DO 
E mm 
= 
+AO 
rm 
a 


AT 2,5; INVERSE 1;"M= 
R=RECOMECAR  E=FIM": PHUSE 


ET IgG=INKEYG: IF Ig="M" TH 


F I$="R' THEN GO TO 270 
F os ="E" THEN STOP 

O T (530 

ATA 256 17 
19,33 , 16 fes 

ET TONE=32600 

OR N=TONE TO TONE+17: 
KE N,D: NEXT N: RETURN 


COuUSGu 
x 
o 


4 


(3) 


m 
DRE DMEVLULZUSMT 


“FE SOvER 


o 


219,254 
266, 7453 


“o 


poe 
SN VESNEDA 


OO PeOgHHZO 


READ 


D 


c apresentado um OUtro menu do fazer Edit 
AAPS Shitt + teclã 1), do Qual constam as 
seguintes opcoes: 
INsert- Para introducao de caracteres nao 
iNtroduzidos Por engano OU erro. iTecia T) 
Posicione O cursor No Local indicado ipara 
Correcção) e pelo modo Edit, accione à te- 
Cla “I', Ditroduza O numero de caracteres 
a entrar, Num limite de O à 455. Pode fa- 
zer esta entrada de duas formas: ex. 1 OU 
wWdl. INaste Ultimo exemplo a instrução En- 
=r e teita automaticamente. | 
LVelete- estã OPÇãO € identica à anterior 
>endo Utilizada parã retirar caracteres 
ra Linha, onde ocorreu o erro, E pretendi- 
do tambem O Mmumero de caracteres a sair, 
sendo esta Operação feita PELO mesmo modo 
ga Opção anterior. 
crase- Limpa ceterminada parte do texto, 
Jesde à Ultimo caracter a linha imediata- 
mente abaixo do Posicionamento do cursor, 
quando requerida esta opção. 
US ti fy L7r- Funciona para acerto de uma 
tinha OU de toda à Pag. (cursor Line Ou pa 
ve, respectivamente). Experimente num PEqu 
eno texto deixar dois espacos antes de à 
fatia” uma linha. fccione à tecla ' qo e 
indique se pretende à Correção nessa Linha 
OU em todo O texto (cp). Coloque, antes 
desta OPCãO O Cursor NO inicio do texto, 
se OPIOU Por, page LP), OU Na linha se 
ÓPtOU POr Linhã (Cc). veri Fique que O texto 
Ou Linha, ficaram Juntas a margem esquerda 
pala OPÇÃO T" direita), conseguira o 
certo de Linhas entre as duas margens do 
ecran, Pela mesma Forma da opcao anterior. 
Todo O texto OU uma Linha). 


OLtando 40 MENU principal tem ainda as 

JPÇORS : 

5StoP- Parar O programa. (Com à instrução 
ONTtiNnve regressara ao menv). Em caso de 

fã ao programa, faca GOtO VOZ € Não 


No 
reco a page- rpagara todã à pag. indicada 
domo) 


cave €& Load- Funcionam da mesma forma de 
gravação €& carregamento de um programa 
normal, atribuindo UM Nome que nao deve 
exceder OS WO caracteres. 

Lhange typeface- Contem tres opcoes: 
Normal, New € Rede fine. 

Normal, tera os caracteres normais do Spec 


11 


PRINT AT 2,7; INVERSE 


CLUBE Zs0 
THEN GO. 
INPUT 
nd E 
E ig DATA x 
INPUT 


id Si 
USR 320545: GO TO 
USR 20674: 


USR 29900: 60 TO 
29915 
USR 320615: 
| "SAVING: o 
Uy 


USR 30434: STOP 


ni RANDOMIZE 
ZE 

RANDOMIZE 
RANDOMIZE 


previa- 


, PELA OPÇÃO Rede fine. 


Para redefinir qualquer, de en- 


tabela de 
de 1-8 li- 


com Colunas de a-f. Se pretender fi- 
ar com O Quadro dos novos caracteres deve 


sendo definido, 
gravar O programa com o comando GUTO Fada. 


CAR 
à Sua formação pelo dis- 


SEGUiINdO-SE O Codigo 
? 


correspondente, 


parã Utilizar OS Caracteres 
caracter, 


nente definidos 


Rede Fine - 
Conversão - Jornal n. aD Clube ZB0). 


Pssim que O caracter vai 


podera acompanhar 
Play apresentado numa grelna 


finas 


Masus cultas). 
New , 

trada do 
decimal 
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6, 
6, 


uu Ea = o SOz tou E 0 q 5 
cet o 290) DOM D4 DD DS LOBO DON io 
= pi x x e o ea em oz [em à A segs do pa da q da | a e QD ha o 
“a oo teS0S08 dA OE 0 O OF 08 db ID SINO 06 08 1d +08 dd 08 + 
e . E oO + A * da a : g o á 
aa us tw [1] x “A a tas O cc + q o Ú DO a io a 
dio “ils 2 so) L& L os DO BO OGN s DON DHLONSDANMA 
.. -e--g [od] e o “o UU toe l.: q dddAsSDA ANADIA ALL LSDIDA AA DRA 
o ao os a el o don O” mr & 
= O: o 2: d+ qm s+a 2o-o <00 
roca a «8 4 * Su DU al Rx à tt DOM mM DALNDOD LO <MLA ADS 
Ss 9 a -1 9 “3 Ss Sao L> da go: o: q Au DODATLAAT LILA NADA ELIAS ALD AM 
o DO atu OT nica A PIT CO fo | 
as - 9 + DDS DOIDA s smo w O 
ag ES = x ca Te PR o da SA E ei - = MDA DGADADANDAALDOADADUANSO 4 SM 
x .. | ho = ++ AAAAMUA sd+snanaAa 
53 300095 az 922204 3x 30 ow Ea o a ao dig lt tal QUO <d ma 
Wa - ea a o - “DO RA OS DO o Og O 
wit-us mW>D>Dy SO cut... tO tu WO >GULDO ab NOS AASHMNSSNNHASINDDDOS A AR 
NT Hd UNALZ AN NOx: Oo nN NE+ SONJOAS HO tddi SAL LI IANIDADDONAAA 
Ham HiOLXO+ TT OMAHHASO.. sh H>UXOMH AD 
LL ZE EU UU ZZk OLXTILIO Zx0O LH E «ly L> :-o pe 4a o :õgsaosa adm 
OO sOUTr Ou 090004-kl --00€ OXAKXDOO EO q VUDRORAO D<ao mn D+4Ada DOS 
à-ô qd0900030).)I7Z6WUA daNZHLy -Hõoa ol 2d axXTc-- *IADUU DOU SIO LD ADIALITUDA ALOHA 


rr cHnNHNrHHE--DdamrrrÃDa x ous Wai IHUOTA DONO DUDIDONDISDADIDOADISDADISDAO 

OO NDN + va - N O Nº rDNrADANASSAMADNLDDDON-DDANRSHAANA 

O IJS095H9H095: OPSSDS Dx os EOMUSHOD+O . «9 DOODOOOPNNAPPMRNRENRREEENENEASLLDDODDO 

+ QU SO0TOLNDOG-DASALUA -NDDL-«U NOZIDNSOS 5 100002000 0202220002020202000422RHHRARR 

*9 -.. .S9S0OG0OSSS: SSdAdNALAINOZ-S .-.HSOSSUNDVO: g do Ja Je da Jo Jo Ja Ta da Da da Za da de ja Ja Ja da da Ta Ta Ja Ga da Ta da da] 
A<N=0000300D0-0000D000HD MO DNH DxrmaonmMmaAmpM a 
al 





q— = iu vs q “a “ua «x so 1 “ O Z - Lt - 0 E E < 
a NY EM C 8 ade su s Ps -o ATO taoO OtLeuyiOTODO 
e AAA rr NX" SS cs 292 53 9 xo ID ax tt 9º nx a aa - 
* Ma ES colado E] vo -.> ía o a ax oo ac Ze as 30 
oo? SC QU D Sc sa CoD wuxe Zi drzz ZOO d4XO ZT>- Ta ZZzZZzZzZO 
ues E a = ses aa 2 N Ma: O Ut MH xo O he a hiuoyi o 
- Ha |- a =x > 
5.8” sc» 9 ê = 35 e: ” pad bo ps -- -R- - po 
É + 
O E: + RB" ad a 
oz: o 8 : 2: e 
adoh 538 48 Ssçô das 3858 ., SE é sruei al 
o vam rea, 3 - - 
des Eos VE. Ro == a Ts dis QUTUGUOUS 
0 QN o. Le, ua - — 
Soa .0o c f CO o di O q: 200TO 4 o e“ Mm E ana 
OO = ua | o Vs T . a 
ca a a Shao 3 Se AM D-cOM DANO-O DL q -D00 9 
asa. 85 SE 359 80858vZs 48 Dx cado onr cotas 3x 3H 5 38 90000-905 
- A be JM > “A 
it osx 28 “So Becos" º ge W>0>0>0> us us. us us SON > >0>0> 
Eq o. 2 oca Sa Ba o Ox “NNE N + oON-NASGNNNE>SNE OQ o ON 
es w É > ga .S804=5 Sd Diz Pix! xxx DZ NADA NZANDOLOLOA <OH 
a º“B0990 -& LSOVAUAl.a OT) LHoLrNONci ul ZH LONI LZLHHI Ok) Wi midi £ 
o 2298,2,.2 - açóece2a S- H' sOrx0OOUOUOUaW 0ODOK OS O 00OW-Ox wi-lWatumau O 
08º BagsvVos Aria ué a A a nO -- 0094000 agdana -aa agdoa aasanmau-.axasnara xo 
QUososNTA LUZ sÍiVGsSVAaDGA r 90Z e... o ZE ZA JA ts Z 
Vaca o o Sou SUDEUA CSs O-DHT.-. Tunisia su OT... Tor T CT.SdTaca du uia ca 
PnBovEs vo Va) 99 o “SU DO! CR-CENIHOEMM GXS-LNOT CARLO Misha 
ares scS SNS a Dn vBSas AO >: N >»: 30 suto NS 4 
VPN o 24 «Qnod.a “So “ 98 GOÍ-VSO 99o9HG<L00l 9 9 SOlinsrisOADHSADASO 
bad = Pt SosiasB SQeaSioga? E “dh MLONOLONDOEO Mex MUZO DALIO DIOOTOONOD 
Uma DEAN oo y50-cas > 5 mu. AAIANOMONNZiNNhIO MNZER cr OR 
SPD iSUHr ãads covordagar s JO So O - HI +“ “o xm wu O tw Pu a 
n 
=; 





” 














CLUBE Za 13 
29534 6a 253 Ros 1 aa 175 30518 205 650 3a 205 101 120 jieda as 191 58 5 sa as4 
av840 17S 215 175 215 285 305as avi az 15 7 8” ss 31205 122 192 205 172 14 201 
29846 119 116 195 226 115 49 30530 71 59 32 78 79 46 31214 S 140 127 50 125 122 
295852 4.9 1 24 80 15 305365 Ja JR JR 69 sa 65 jl220 205 115 leaR 24 13 62 
29658 23 118 253 203 1 110 30542 83 59 68 205 Si iai 31286 245 126 laa 205 
29864 40 249 253 203 1 174 30545 205 107 121 62 2 285 jlede 118 l2a 241 61 Sa 245 
29870 a20i 205 196 183 205 163 30554 1 aa 17 614 4119 4 31235 20S 89 1253 201 205 112 
29878 118 S8 8 qa ais 49 30560 20 QB 205 60 32 62 jlmdás 123 aav 175 2397 82 237 
29862 243 33 203 116 150 30566 az 215 Sa 15 215 62 j1250 75 139 187 17 4R QU 
29898 48 237 6 4 205 68 30572 16 215 SS 131 123 198 J1l256 as 16 253 235 285 837 
29894 205 176 123 201 é 30578 48 215 201 RR 9 2 sl262 82 235 l2a 179 200 35 
29900 205 174 118 68 4 50 30584 4 73 34 76 69 3R 1268 54 3a iza 179 Ja 
29905 203 116 205 176 116 205 30890 111 102 32 80 65 71 31274 246 42 139 127 62 23 
avvla aa5 1286 20i 205 43 119 30596 69 83 JR 40 49 48 31260 148 71 79 le 197 28s 
29918 255 50 203 116 205 30602 32 57 104 114 115 46 31285 0 14 193 13 32 248 
avvas 178 116 201 205 111 180 30605 Ja 77 65 58 41 32 31292 201 205 1i1& 123 175 237 
29930 3 50 R03 116 205 30614 63 52 & 205 1 aa 31298 82 237 75 139 127 17 
29936 178 116 201 205 10 181 30620 17 117 119 1 34 w 31304 42 QU as 16 253 237 
asvsa -) 50 203 116 285 30626 205 SU 352 201 22 11 31310 82 35 13 32 252 201 
29948 178 116 201 205 80 187 30632 84 73 Bé 76 659 31316 4a 139 127 465 32 E 
29954 205 163 116 205 1214 + 306358 3Jz 111 102 Ja 80 65 31322 46 42 37 32 3 33 
29960 8 va 2546 iã 198 30644 71 69 83 3a 116 111 313285 1 34 139 127 205 
29966 205 234 1R6 24 239 205 30650 32 98 101 32 756 79 31334 61 122 S4 32 58 145 
avv7a 163 116 208 201 121 2014 30656 65 68 59 68 6 34 31340 92 203 135 50 145 98 
29978 205 658 127 4a 2R8 117 30662 53 J4 JR 68 65 Ba 31345 205 88 127 201 205 112 
29984 2286 117 119 35 Jé 30668 65 Ja 88 35 40 41 31352 123 175 237 62 6 14 
29990 226 117 62 RR 205 1 30674 2a 2 205 1 22 17 31358 17 42 WU 25 16 2853 
29996 2a 62 aR 215 62 145 30680 166 119 1 44 QU 20s 31364 34 8 123 237 62 385 
30008 215 62 19 215 62 Ri 30665 60 3a avi 22 15 QU 31370 34 10 1231 [7 42 
30008 215 175 215 58 225 117 30592 83 119 105 116 99 104 31376 126 25646 32 3a 5 12 
30014 2i5 58 183 117 60 50 30695 3R 111 110 Ja 116 97 313582 35 16 247 201 120 6 
J00eRo 183 117 56 =26 117 195 30704 112 101 32 38 32 112 31388 O 237 91 10 123 79 
J0026 SO aR6 117 48 ua GR 30710 114 101 115 115 32 69 31394 237 178 42 68 1283 71 
—0VIa R aos 1 au a ar 30716 84 69 Ba 62 R& Jisoo 2 42 144 40 6 74 
038 215 58 1639 117 215 58 30722 2085 1 az 17 225 119 31406 S4 JR 43 16 251 Ré 
0044 287 117 R1i6 6a 1463 215 30728 31 q 205 60 38 31412 QUO 42 10 123 6 41 
0050 205 234 126 58 2R7 1417 30734 R2Ui RR 17 7 79 46 31415 35 126 às 32 40 8 
30056 60 254 19 40 8 se 30740 107 46 32 BO BR 69 sl42a4 16 246 35 126 2546 328 
0064 287 117 SS 26 117 Ré 307465 83 32 65 78 89 31430 Ja 4 L6 248 24 56 
30068 21% 205 113 121 205 176 30752 75 69 89 642 2 31436 42 38 123 126 2546 32 
30074 1243 àvi 175 S0 183 147 30755 205 1 aa 17 15 120 31442 JR 48 42 10 1283 2 
30080 17 aRé l2R 38 QU ss 30764 21 q 20s 60 32 314645 42 QU 13 40 247 35 
30086 225 117 111 41 41 41 30770 205 101 120 201 2R 5 31454 126 254 32 40 247 43 
Juosa 25 Já 226 117 68 R 30776 14 77 69 78 85 aa 31460 126 2546 32 3a 22 197 
30098 205 1 aa Ca ua 215 30762 5 9 41 32 39 31466 229 42 8 123 229 209 
30104 6a 15 2is 62 15 215 30768 78 79 82 77 65 76 31472 45 237 184 42 68 123 
30110 58 225 117 215 205 686 30794 39 RR 3 s So 41 31478 126 254 32 32 7 aas 
30116 127 52 ag 215 62 45 30800 3a 39 78 59 87 39 31464 193 13 35 535 24 216 
J01LeRa 215 62 19 215 58 Ras 308058 22 11 5 a & a 31490 225 225 201 Q Da) [o 
30128 117 215 205 113 1&1 28 30812 JR Ba 659 658 59 78 31496 77 102 36 108 205 104 
3013)4 aa 8 Q Sa JR 3R 30818 73 78 59 42 178 98 31502 123 Ras 175 237 82 17 
30140 Je JR JR JR IR 3 30824 3J4 S4 VR RBLDQ [ra 31505 42 QU 1 Er 1 as 
301466 13 32 68 69 67 46 30830 Q se 2205 1 22 315146 16 253 297 82 35 13 
30152 3a 78 111 46 62 62 30836 Ré 205 658 14 17 31520 32 a5a aos 213 2R9 235 
30158 & 20s 1 22 17 182 30842 S4 120 1 7 8 20s 31526 237 82 17 1 [7 
30164 117 1 23 uv 20s 30848 32 q 205 101 1280 31552 237 82 40 R 4.8 3 
30170 Jr 62 11 S0 227 117 30854 201 22 QU 14 77 69 31538 2asS 225 avi ams 193 &é 
30176 201 49 1 18 112 1246 30860 78 35 22 R s 49 31544 0 209 42 41 1283 25 
30162 16 qU az q 8 30866 41 32 83 84 65 82 31550 237 176 225 &é4 13 à2as 
30188 16 6 143 143 143 1493 30972 84 22 &é 5 So 41 31556 209 43 az q 237 164 
30194 143 143 16 SS 143 143 30878 3a 83 84 79 80 BR 31562 225 237 91 41 1283 25 
30200 a0S 107 121 62 & 20s 30884 Ss Si 41 32 89 31568 55 41 123 54 Ja 43 
30205 1 az 8 8 197 58 30890 8a 55 53 659 32 655 31574 61 32 250 6 aé 197 
30212 233 117 60 50 R33 117 30896 32 830 65 71 59 RR 315680 6 23 aos q 14 193 
30218 235 117 60 S0 235 30902 5 sa 41 32 83 31586 16 247 205 148 123 201 
30Ras 117 17 230 117 à 18 30905 65 56 59 3a BB 65 31592 205 380 127 205 1la 123 
30230 Q 205 60 32 193 16 30914 71 59 33 22 10 S 31598 201 0 Se 75 Va 126 
302396 aRo 1758 SO 233 117 30920 53 41 JR TE 79 65 31604 254 216 40 3 35 é 
30242 So 235 117 24 181 309258 65 32 BU 65 71 69 31610 248 17 7 2 25 17 
 J024B 16 QU aa 11 11 30932 83 ar 12 5 54 41 31616 156 3 õ 1 as 16 
-—02Bb4 69 87 Je 120 66 30938 32 67 72 55 78 71 31622 253 201 205 112 183 54 
TrRa280 11 97 VS 99 100 30944 69 3J2 54 89 BU 69 (' 316258 3J2 43 R7 1R2 179 32 
0266 101 102 22 15 1 30950 70 65 67 69 Rê 28 316346 246 201 205 112 483 5 
30272 o» 67 4 Ba 85 30956 127 32 49 S7 56 31640 22 14 42 126 50 245 
302876 77 Sa 67 ir OR 46 30962 S0 32 83 116 117 97 31646 126 297 567 28 127 229 
30264 Je 63 32 61 32 3R 30965 114 116 32 76 105 99 31652 197 AUS 244 126 193 225 
30290 Ja 39 78 69 87 39 30974 104 111 106 1068 115 28 316568 43 13 32 237 16 233 
302496 Ja 77 70 68 69 RE 30989 14 QB 95 95 FE 31664 335 40 17 15 Q 
30302 a? 7 61 49 50 . 30986 205 107 121 62 R& 205 31670 amv 205 181 3 225 17 
30308 56 Re 2 2 98 61 30992 22 65 24 Ros 68 31676 1 Q 167 237 62 32 
30314 Ja 54 Sa a2R 3 ao 30998 14 17 135 120 1 131 316582 240 aoi 6 50 197 33 
30320 99 61 32 51 SO aa 31004 Q 20s 60 32 QU 2 31668 QU 1 1” [3 aa 
30326 4 20 100 61 Sa 49 319010 7) 201 6a 120 50 31694 205 161 53 eas 17 16 
30332 S4 22 5 20 101 61 31016 72 9 33 141 92 283 31700 Q 167 237 52 32 240 
30338 3 ja S6 ua 6 20 31082 246 205 51 127 201 58 31706 193 16 233 201 QU 2 
30344 102 61 Ja Ja Sa 6 31025 68 92 ais 48 S0 131 31712 O [7 Q [7 [4 [7 
30350 205 1 az 17 40 31034 123 195 136 123 58 8 31718 0 Q 16 16 16 16 
30356 118 1 101 Q 205 60 31040 92 54 110 192 58 131 317246 QU 16 q Q 20 ao 
30362 201 az 11 8 80 31046 123 50 asSé 32 & 31730 Q 2 2 [7 2 ? 
50368 65 71 69 va O 69 31052 62 1 59 131 123 205 31736 O 40 124 40 124 40 
30374 81 85 73 6a 69 68 31058 89 123 33 1 1 34 31742 Q 2 16 S6 80 56 
30380 Ja 63 2 R 205 1 31064 139 127 R&Qi 121 91 117 31745 ao 120 16 O [7 100 
30365 22 17 156 118 1 31070 93 112 127 97 126 115 31754 104 16 44 76 O 2 
32392 205 60 32 Res 101 31076 124 100 92 102 123 103 31760 Ja 50 32 S4 72 52 
30398 120 201 22 11 67 31062 125 42 54 9 3Jé 176 31765 0 Q 16 16 QO 2 
30404 79 78 846 73 78 85 31085 92 33 WU bo 3s 54 317728 O 2 Q 9 3 16 
30410 69 Ja 58 JR 119 105 31094 92 avi q 205 80 127 31778 16 16 16 2 2 
30416 108 108 32 114 101 115 31100 55 8 va 50 245 126 31764 Ja 16 16 16 16 32 
30422 116 97 114 116 32 97 31106 2546 13 32 4 205 141 31790 OQ Q 2 40 16 1284 
304258 116 32 77 69 78 85 31112 127 201 58 139 127 2546 31796 16 40 QU Q Q 16 
30434 62 2 aos 1 aa 17 31118 43 40 41 58 245 126 31802 16 1284 16 16 QU Q 
30440 192 118 1 34 | aos 31124 2546 32 32 4 205 153 31808 2 Q Q 5 8 
30446 32 205 101 120 201 31130 127 a0i 214 38 6 25 31814 16 QU 2 [7 [7 1246 
30452 RR 1iRZR Bo 65 71 31136 ali4 9 208 58 145 92 31820 Q 7) Q 2 Q Q 
30458 3a 78 111 46 38 31142 203 135 SO 145 92 205 31825 QU 2 16 16 qO 2 
30464 116 111 32 9 101 32 31148 244 126 58 145 92 203 31832 O 4 8 16 32 64 
30470 69 sa 65 83 69 68 31154 199 5 145 92 205 146 31838 O 2 56 76 84 84 
30476 32 49 45 S2 32 63 31160 127 201 58 245 126 254 315844 100 S6 QU [7] 12 13 
30482 az 13 6S 78 89 31166 12 3 4 z05 84 1282 31850 24 12 45 123 12 1283 
3064688 Ja 79 S4 72 89 BR 31172 aWi 2WUs 180 127 201 58 31866 56 6558 8 16 32 126 
30494 JR 75 69 89 32 78 31178 139 127 2546 43 200 58 31862 0 2 120 4 S6 4 
30500 79 82 32 77 59 78 31164 8 y2 33 91 121 31865 4 120 QU Q 64 72 
30506 85 52 à& 205 1 aa 31190 16 QU 237 177 1280 177 31874 72 184 8 8 2 2 
30512 17 244 118 1 55 q 31196 40 65 126 SO 245 126 31880 124 54 120 4 4 120 

















14 CLUBE Zso 
318865 2 S6 64 120 68 32180 64 124 Q 2 48 3a 328474 23a 200 232 136 112 QU 
31892 68 56 QU 2 124 é 52166 Jz 32 32 45 |U 2 jas80 0 se 8 ga mis 48 
31895 8 16 32 O 3aisa O 54 32 16 8 4 32486 195 70 12810 7.1 
31904 S6 68 S6 658 68 56 32195 0 o as 5 858 8 32492 0 33 50 UU Ros 181 
31910 o SsS6 68 68 68 Jzade 5 24 à gu 16 56 324698 3 avi 33 3R 41 
31916 é S6 O O QB 16 Jzz2l0 84 16 16 16 2 qQ 32504 41 41 237 91 546 SR 
31922 16 QU 16 16 QU QU 32216 dou: 32510 28 6 8 14 86 
31925 1. 23 0 16 126 s22ae2 0 252 26 3JE 32 118 32516 123 61 32 RR 203 34 
31934 Ja QU q 16 3a 646 322208 32 32 124 Q [a] = 32522 203 3J4 zao Ra 127 
Ss da is 0 'D O o 3225346 4 60 58 60 QU WD 32528 Ja 248 35 16 236 201 
31945 1luéá Q lR4 q pa 322460 64 120 586 68 68 1280 328534 197 213 229 33 à à 
31952 dd “Gu Ra 16 32245 0 0 o 4 4 64 3as4o 4 175 125 7 7 133 
31955 U 0 S6 68 8 16 32252 64 50 O QU 4 88 325466 133 111 203 36 203 36 
31964 Q 16 2 Q 56 76 38258 68 558 68 60 |U Q 32552 203 36 62 175 146 103 
31970 64 vm 4 56 QU BB 32264 Q SE 68 120 64 56 32558 6 145 133 120 
31976 S6 68 68 1246 65 68 32270 O OQ 24 36 32 120 32564 132 71 205 229 346 Ras 
31982 0 2 leo 68 120 68 32276 32 3a OQ [7] [3 55 32570 209 193 201 33 14 se 
31988 65 120 QU Q se 68 322882 65 558 658 60 4 Ss 32576 Sá vR Roi 33 Ras 
31994 64 64 68 56 QU BU 32268 64 120 68 68 66 68 32582 122 34 S4 2 2010 
32000 120 68 66 58 65 120 32294 |D q 16 O 48 16 32588 D o 0 ss ass 
32006 QU 2 124 64 1280 64 32300 168 S6 RW [r 16 Q 324594 203 199 50 145 92 
jzdla 64 124 q - lzaé 64 32306 45 16 16 16 80 32 32600 175 SS 140 127 7 7 
32016 l2o 04 54 64 q 32312 64 64 7R 1la 72 68 Jz605 71 6a 183 144 71 
3z2des 58 04 va 68 56 32318 o 64 64 64 64 3a6la 2a 8 58 139 127 61 
32030 2 68 68 124 58 3234 65 S6 O UU 0 4 32618 79 7 7 129 189 79 
32036 68 68 UU 2 56 16 32330 4 4 4 4 QU DU 32624 390 6 213 197 205 2as 
jsedda 16 16 16 S6 WU 32338 OQ L20 66 68 668 66 32630 J4 193 209 18 sv. 3 
32048 as 8 3 S 7a 48 32342 Q [7 [7 Ss 68 68 32636 245 5 2. Sa aaeo 42 
32054 Ud q 7a Bo 95 80 323468 68 SE O O bs 120 32642 139 127 346 26 127 346 
Ja060 72 68 U VU 4 Bá 32354 65 58 66 120 64 64 32648 123 201 2 4a 
32066 64 64 54 124 O 32360 0 50 68 68 68 60 32654 139 127 Ré 16 205 61 
je07a 68 105 84 68 68 6 32365 4 4 2 55 68 64 32660 122 58 245 126 119 42 
32076 q 0 8 dO Se 76 32378 64 64 DO DD BU Ss 32665 139 127 44 125 254 43 
32054 65 58 UU QU S6 68 32378 64 S6 é 120 ? QU 32672 11 «46 1 36 ARA 
jeoso 68 58 68 S6 QU WU 32364 3a 120 32 Ja 36 Ré 32675 aqS4 23) 328 3.33 4 
32096 laQ 66 66 120 64 é 32390 O 0 o o ss 68 32684 34 139 127 205 
32102 2 6 68 68 68 32395 68 50 QU 2 [7] 58 32690 126 201 1 Rsé4 256 237 
321058 84 5 q Leo 66 3R4DR ES 58 40 156 BOB [4 32696 120 254 254 192 42 139 
Jells 66 law va 68 O 0. 3RaDB O Bé 4 B4 B4 40 32702 127 1 254 247 237 120 
jaleo 66 64 S6 4 68 Bo 324 14 o 0 68 48 416 32708 254 299 32 6 45 32 
Je les 2 lema 16 16 46 3R4R0 40 ES QU 2 2 88 32714 46 44 JR 43 4 254 
s2a132 16 16 Q Q 8 68 32425 65 68 68 50 4 SE 3e720 239 237 le0 RSé 251 32 
32135 66 66 68 56 QU U 32432 0 124 6 16 32 I1R4 sazes 44 126 254 40 
Jelés 65 68 68 68 40 16 3246360 O o 4“ 52 32 654 32732 4 254 43 Ja 24 45 
32150 - 56 68 64 Bé 324644 IR BR 48 OQ 18 16 32738 24 ai 254 247 32 6 
32156 1068 40 WU Q 68 40 32450 16 15 16 16 O 7) o7és 7? 3R 14 32 11 
32162 15 16 40 65 OU U 3Re dé 8 BB 4 8 8 32750 2546 239 32 10 36 124 
32168 68 40 16 16 16 16 32462 2 O VU o sa ss 32756 2546 23 32 1 37 34 
328174 2 Las 6 16 3a 324668 Q 2 2 o 112 136 32762 139 127 205 234 126 201 





Autor.: Manuel Quinaz 
Porto 


Após a entrada do programa, ser-lhe-á pedido Z = função SEN X 

(x,y), seguindo-se os valores iniciais e finais para x e y. E X varia entre -8 e 8 
então traçado o gráfico em 3 dimensões e em perspectiva Y varia entre O e 1 
dessa função. 


EXEMPLOS: 


SEN X+ COS Y 


X varia entre 0 e 8 
Y varia entre 0 e 8 








EXP (—-X-X) + EXP (—-Y+Y/4) 


X varia entre —-4 e 4 
Y varia entre —4 e 4 


1M(ABS(x*Y))* . 5 
X varia entre -3 e 3 
Y varia entre -3 e 3 
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Baseado no jogo Asteróides, apenas com algumas alte- 


rações grá 





(listagem 2) introduz o código máquina com o máximo 


2 


de atenção para evitares erros. Depois de passado, pa- 


ra verificares se tudo está em condições, far 


ficas. 


“RUN”, 


Se ocorreu algum erro, o computador indicar-te-à a sua 


localização. 


O Objectivo do jogo é destruir todos os objectos que possam 


O JOGO: 


Se tudo está perfeito, obterás a informação: “PODES 


colidir com a nave que controlas. Podes rodar a nave. para 


qualquer direcção (teclas 6 e 7) ou mesmo perseguir os 


GRAVAR”. Em último caso, para verificares se real- 


mente tudo está correcto, podes fazer: 


cosmazoigs (tecla 9), para disparar (tecla 0) e a (tecla 8) para 


parar O jogo. 


LET L = USR 30448 : BORDER O 


Se houver incorrecção o programa “Aborta”. 


Para esta tua missão tens apenas 3 naves, por isso escolhe 


o nível de jogo que preferes, (de O a 9). 


Se conseguires o record, escreve o teu nome e a seguir 


“ENTER”, 


Listagem 1 


caso contrário, regressarás à 1.º letra. 
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O PROGRAMA: 


Retirado da revista “YOUR COMPUTER”, Mar/84. 


É necessário introduzir 2 programas para conseguires o jogo: 


1 — (listagem 1) que deves gravar com o comando: SAVE 


“Cosmazoigs” LINE 1 e verificar depois de gravado 


(VERIPY'º 


à, 
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PAULO CASTELO 


PORTO 


Autor: 


R — Recomeça 


Retirado do “YOUR COMPUTER” Jan/84, este programa 


S — Baralha para um novo jogo 


funciona tal como os puzzles, que vês publicados em várias 


revistas. 


INK 7: BRIGMNT 1: B 


j 
É 


“ê 
Lo 


Poa. 


OR aui 


à; 
;88( 


L 
8. 





j 





RR 


Dar entrada de 10 palavras chave que serão baralhadas num 


quadro em posições diversas: diagonal, vertical e horizontal. 


a 21 4 8: 
ADAPTADO 


Bu 


p 


BEE 
34: 
EE 


+ 


Nota que as palavras podem estar pela ordem inversa. 


Tens ainda um MENU com 5 


o: 


PRINT 
P .Di 8: 
CL iy 
sêê> E 


0 
982,70 


T 


-à TO ): 


1,8; 28(3 
30 LET Al 





NE 





opções. 


A — Dá-te a resolução 


NT 


or 


4º, A8 (38-f 


AT 3 


C — Copia p/ a impressora 


Q — Para 


01,6: 


NE x 
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tem dois procedimentos 


“s. 


NA 


Para abertura do canal “S” 


LA 


Linha n.º PRINT AT 0,0: RANDOMIZE USR X 


Quando utilizar a sua rotina, escreva: 


LD A,2 
CALL 5633 


“S” (livre trânsito par o ecran), podem acontecer fenóme- 


nos muito estranhos. 
E importante frisar que 2 computadores do mesmo 


modelo, ao depararem com uma instrução imprecisa, 


sua rotina máquina e nenhum símbolo adicional apare-. 


ceu no écran. Em contrapartida, escreve o caracter sem- 


pre na linha 22, seja qual fôr o número de linha que eu 


proponha. 


a) Programa em Basic, com pequenas rotinas em C.M.. 
b) Programa em C.M. utilize o seguinte Assembler: 


Assim no meu SPECTRUM 48K introduzi, na íntegra, a 


momentaneamente podem seguir caminhos diferentes. 


Para abrir o canal 
possíveis: 


4 


ROTINA EM CODIGO MAQUI 


Ea) 


côr que se 
Se souberem, 


do écran um determi- 
gostaria que me explicassem 


linha. 


(Resposta à pergunta de Mário Rebelo) 
MÁRIO REBELO/Coimbra 


posição 


“A rotina que listo ao lado, co- 


mo podem ver, coloca em certa 
um número que varia de linha 
porque é que isso acontece e 


como é possível eliminar tal 


número do écran”. 


após o simbolo, surge sempre 


pretende. O problema é que, 


nado símbolo com a 


para 
“Quando se aplica o caracter 22 como comando “AT”, 
numa rotina em C.M., sem que primeiro se abra o canal 


A Pergunta (publicada em Maio, pág. 7): 


LDE,N 


LDD,N 
FERNADO PRECES Responde: 


LDA,(“AT"(22))N 


RST16 
LDA,D 
RST16 
LDA,E 
RST16 
LDA,“INR”(1E)N 


RST16 
LDA,N (símbolo) 
RST16 


RET 


LDA,N (car) 
RST16 


CLUBE Zso 


LD B,24 
CALL 3652 
LD A,22 
RST 16 
LD AN 
RST 16 
L,D AN 
RST 16 
LD A,16 
RST 16 
LD A,N 
RST 16 
LD A,17 
RST 16 
LD A,N 
RST 16 
LD A,N 
RST 16 


e RET 


Para finalizar, devo acrescentar que esta rotina é muito 
interessante para estudo, mas tem pouca aplicação 
prática. 

Se descodificar alguns programas comerciais existentes 
no mercado, encontrará rotinas para o efeito, bem mais 
rápidas e eficazes. 


Se pretender limpar o primeiro o ecran 


Posição PRINT no ecran 


Cor “INK” 


Cor “PAPER” 


imprime o símbolo 


FERNANDO PRECES/Sacavém 


SCROLL, BREAK, CONTINUE e VERIFY 


RUI CARVALHO/Barreiro expõe “algumas anomalias do 
teclado do Spectrum, que gostaria de ver publicadas, e 
perguntas que gostaria de ver respondidas": 


“8*» Descobri que primindo CAPS SHIFT 3 quando nos é pedi- 
do “SCROLL?”, este é executado duas vezes sem no-lo 
pedir — isto pode ser útil especialmente em listagens mui- 
to longas. 

e A revista ZX COMPUTING (Ab/Maio 84) apresenta uma 
nova maneira de fazer “BREAK” num programa: 


Primir CAPS SHIFT, SYMBOL SHIFT e 2 ao .mesmo 
tempo. No entanto, isto nem sempre funcionará. Por ex- 
emplo, quando aparece “SCROLL?”, caso se prima estas 
3 teclas ou outras, nada acontecerá; primindo CAPS 
SHIFT e SYMBOL SHIFT ao mesmo tempo, aparecerão 
várias coisas que não nos interessam pois a sua aplicação 
prática é nula. 

Note-se que se se quiser parar o “SCROLL?” a seguir a 
primir CAPS SHIFT, SYMBOL SHIFT e outra tecla, o 
ecran subirá (sendo portanto executado o “SCROLL?”). 
Mas agora, só BREAK parará o “SCROLL?”. 

Existem também outros casos em que esta combinação 
não funciona — p. ex.: PAUSE O (zero). 


e Quando a “SCROLL?” respondemos N, seguido de 
CONT, porque é que o computador repete ou continua o 
comando CONTINUE? Porque é que “LIST”, no mesmo 
caso, dá O (zero) OR? 
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e Por estranho que pareça, VERIFY não pode entrar na 
constituição de um programa, pois dá erro R: tape loading 
error (quando o gravador está a funcionar). Existe alguma 
maneira de VERIFY ser aceite pelo computador?”. 


RUI CARVALHO espera que os sócios discutam ou escla- 
reçam estas questões. Escrevam-nas ao CLUBE Z80 para 
publicação. 


* 
* * 


VERIFIQUE A CAPACIDADE DO SEU ZX SPECTRUM 


Publicamos no mês passado (n.º 21, pág. 6) uma indicação 
para verificar a capacidade do SPECTRUM: PRINT PEEK 
23733 ENTER (se 255-48K; se 127-16K,). 


CARLOS OLIVEIRA/Portimão escreveu-nos o seguinte: 


“Julgo ser mais agradável ver no ecran da TV 16 ou 48. Por 
isso, sugiro que se utilize a instrução PRINT PEEK 23733/4- 
-15.75 ENTER”. 


* 
* + 


Sobre a Rubrica “INTRODUÇÃO À LINGUAGEM MÁQUINA” 


JORGE LANDECK/Seia sugere o seguinte: 


“Tal como eu, penso que também outros sócios não tiveram 
a oportunidade de se tornarem tal, senão recentemente. 
Assim, alguns de nós apenas possuímos as revistas mais re- 
centes o que, constitui, pelo menos para mim, uma grande 
lacuna (...). Venho pois sugerir que se faça, por exemplo a 
edição de uma revista especial, onde se resumisse a rubrica 
“Introdução à Linguagem Máquina” que penso de especial 
importância”. 


— Que pensam os outros sócios desta ideia? Escrevam-nos. 


TROCO PROGRAMAS 
PARA O SPECTRUM 


Õ 


CONTACTAR: TIAGO RAMALHO 
R. CLEMENTE MENÉRES, 47-3.º D. 
4000 PORTO 





a 


CLUBE Zgso 





BEEP NO SPECTRUM 


Talvez muitos dos possuidores do Spectrum estejam desa- 
pontados com o comando BEEP. 

Aqui apresentamos uma pequena rotina em BASIC que lhe 
dará novas perspectivas sobre este comando: 


48 BRR, 2 Sostere 
é 


Da 
B ER D.m,a: BEEP .05,a 
50 LET b=a 
80 NEXT i 
oé Bira da-ticis-itib edad 
4 + Ê é 
98 DATA 13,15,18,15,16,13,15,1 


3 
nd DATA 15,11,13,21,123,15,16,4 


NÃO PERMITIR O MERGE 


Qualquer programa em BASIC pode ser parado, usando a 
instrucção MERGE. Para evitar a leitura do seu programa, 
apresentamos a seguir duas linhas que devem ser adiciona- 
das à listagem e aproveitadas para a gravação do mesmo 
(GOTO 9998). 

Desta forma será impossível fazer MERGE ou BREAK, fican- 
do o programa a entrar com LOAD'“"CODE. 

dat Rr KE 23613,82: POKE 22º“ Co 


"“iNome do programa 
E 23552, (valor aprox.) +100 


9999 G0 TO tinicio do programa) 


Para achar O comprimento aprox. 
Faca: PRINT 41472- (65538 -USR 998 1 





OS MICROS E PROGRAMAS (Spectrum) MAIS VENDIDOS, EM INGLATERRA, NA PRIMEIRA SEMANA DE JULHO 
(informações da revista PERSONAL COMPUTER NEWS, 14 Julho, 1984, n.º 69) 


e MICROS 


Preço superior £: 1 000 
1 - IBMPC 


3 - Apple Ill 


6 - DEC Rainbow 


8 - Wang Professional 
9 - Philips P2000 C 





e PROGRAMAS SPECTRUM (Jogos) 


1 — SABRE WULF* 11 — CODE NAME MAT 
2 — TLL 12 — VALHALLA* 

3 — PSYTRON 13 — NIGHT GUNNER”* 
4 — MUGSY 14 — CAVELON 

5 — FIGHTER PILOT* 15 — SCUBA DIVE* 

6 — HULK 16 — CHUKKIE EGG* 


7 — JACK & B'STALK 

8 — LORDS OF MIDNIGHT 
9 — TRASHMAN* 

10 — JET SET WILLY” 


17 — ATIC ATAC* 

18 — ANTICS 

19 — FOOTBALL MANAGER" 
20 — CHEQUERED FLAG* 


(* Programas disponíveis no CLUBE Z80) 





10 - LSI Octópus 


OS 10 MAIS VENDIDOS NO CLUBE Z80 
(JOGOS SPECTRUM) 
1— JET SET WILLY 


2 — FIGHTER PILOT 
3 — PHEENIX 


4 — CHEQUERED FLAG 
5 — NIGHT GUNNER 
6 — HUNTER KILLER 
7 — SIMULADOR DE VOO (Psion) 
8 — SPACE SHUTTLE 
9 — PINBALL 
10 — ATIC ATACK 








JOGOS Preço 


e BLACK PLANET (...48K) — Séc. XXI: Black Planet, o planeta pirata serve de base para elementos criminosos. Você é “Starma- 
gon” de uma patrulha galática que tem como objectivo a destruição das vias espaciais desses elementos. Para isso, terá de 
conseguir as 7 peças-chave necessárias à destruição do BLACK PLANET. 

e FRED (48K) — O herói do jogo explora um labirinto cheio de monstros, com o objectivo de apanhar tesouros, dispondo de uma 
arma com 6 balas. 

e GRID RUN(...16/48K) — Um labirinto com 2 automóveis. Sendo condutor de um, percorra rapidamente todo o labirinto, evitan- 
do o seu perdeguidor. 

e MUNCHER (...16/48K) — Outra versão de “Pacman” com 9 níveis de dificuldade e possibilidade de um ou 2 jogadores. 

e PHEENIX (...16/48K) — Jogo de arcádia muito popular, com vários níveis de dificuldade e diferentes fases durante a invasão 
inimiga. O jogo termina com a destruição da nave-mãe que é protegida ainda por alguns invasores. 


e POGO (48K) — Percorra uma pirâmide de hexágonos que vão mudando de côr, aquando da sua passagem. Há perseguidores a 
impedir o êxito da sua missão. 

e TANKS (...16/48K) — O seu objectivo é duplo: Destuir os tanques inimigos sem os deixar avançar além da linha de fogo e 
procurar uma base para abastecimento de combustível e munições. Atenção! O caminho está minado. Por isso oriente-se pelas 
diferentes cores corsespondentes aos vários detectores de minas. 

e TRASHMAN (48K) — A finalidade do jogo é apanhar o número de contentores do lixo indicado, transportando-os até ao carro e 

colocando-os no seu lugar. 


e UBOAT HUNT (...48K) — Versão traduzida do “Hunter Killer” (destruir submarinos inimigos). 


e ZOMBIES (...16/48K) — Jogo de arcádia do género “Invadens”, com apresentação gráfica bastante variada e com diferentes 
fases aumentando o nível de dificuldade. 


Ati didiis 


DESCONTO DE 20% PARA SÓCIOS DO CLUBE-VENDAS NA SEDE OU À COBRANÇA 


OS PROGRAMAS SEGURANÇA E CDU 


Nos novos programas anunciados em Maio, publicámos SEGURANÇA E CDU que, apesar da nossa insistência com o seu editor/autor, 


ainda não-nos foram remetidos. 
Lamentamos este facto e apenas podemos pedir desculpa a todos os sócios que os requisitaram. Os seus pedidos continuam “'na gaveta” e 
serão atendidos quando dispusermos dos referidos programas. 





